www.gusucode.com > BCB 写的一款可自定义风格的俄罗斯方块源码 > BCB 写的一款可自定义风格的俄罗斯方块源码/code/俄罗斯方块/Tetris.cpp

    //Download by http://www.NewXing.com
//---------------------------------------------------------------------------
#include <vcl.h>
#include "Unit4.h"

#pragma hdrstop
USERES("Tetris.res");
USEFORM("Unit1.cpp", TetrisForm);
USEFORM("Unit2.cpp", AboutBox);
USEFORM("Unit3.cpp", ScoreForm);
USEFORM("Unit4.cpp", SplashForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
               Application->Initialize();
               TSplashForm *Splash = new TSplashForm(Application);
               Splash->FormStyle=fsStayOnTop;
               Splash->BorderStyle=bsNone;
               Splash->Position=poScreenCenter;
               Splash->Show();
               Application->HelpFile = "Tetri.hlp";
           Application->Title = "俄罗斯方块";
           Application->CreateForm(__classid(TTetrisForm), &TetrisForm);
           Application->CreateForm(__classid(TAboutBox), &AboutBox);
           Application->CreateForm(__classid(TScoreForm), &ScoreForm);
           Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------